home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Programming / PPCSmallEiffel / bin_c / short21.c < prev    next >
C/C++ Source or Header  |  1998-01-16  |  2KB  |  61 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.82)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "short.h"
  9. T0* r767operator(void){
  10. T0* R=NULL;
  11. R=((T0*)ms43_473);
  12. return R;
  13. }
  14. /*No:CALL_PREFIX_PLUS.current_type*/
  15. /*No:CALL_PREFIX_PLUS.is_manifest_string*/
  16. /*No:CALL_PREFIX_PLUS.is_void*/
  17. void r767to_runnable_0(T767* C,T0* a1){
  18. C->_current_type=a1;
  19. r767cpc_to_runnable(C,a1);
  20. C->_result_type=/*X496*/((T0*)(((T808*)((T808*)((((T767*)C))->_run_feature/*12*/))))->_result_type/*24*/);
  21. /*IF*/if (((((T767*)C))->_result_type/*16*/)==((void*)(NULL))) {
  22. r683add_position(X496start_position((((T767*)C))->_run_feature/*12*/));
  23. r767error((((T406*)((T406*)((((T767*)C))->_feature_name/*20*/))))->_start_position/*8*/,((T0*)ms1_295));
  24. }
  25.  else if (X291is_like_current((((T767*)C))->_result_type/*16*/)) {
  26. C->_result_type=X662result_type((((T767*)C))->_target/*8*/);
  27. }
  28. /*FI*/}
  29. void r767cpc_to_runnable(T767* C,T0* a1){
  30. T0* _rc=NULL;
  31. T0* _t=NULL;
  32. _t=X662to_runnable((((T767*)C))->_target/*8*/,a1);
  33. /*IF*/if ((_t)==((void*)(NULL))) {
  34. r683add_position(X662start_position((((T767*)C))->_target/*8*/));
  35. /*[IRF3.6fatal_error*/{T0* b1=((T0*)ms2_135);
  36. r683fatal_error(((T683*)(oBC364eh)),b1);
  37. }/*]*/
  38. }
  39. /*FI*/C->_target=_t;
  40. _rc=X291run_class(X662result_type((((T767*)C))->_target/*8*/));
  41. C->_run_feature=r368get_rf(((T368*)_rc),(T0*)C);
  42. r576update((((T767*)C))->_target/*8*/,(((T767*)C))->_run_feature/*12*/);
  43. }
  44. void r767make_call0(T767* C,T0* a1,T0* a2){
  45. C->_target=a1;
  46. C->_feature_name=a2;
  47. }
  48. void r767error(T0* a1,T0* a2){
  49. r683add_position(a1);
  50. r683error(((T683*)(oBC364eh)),a2);
  51. }
  52. /*No:CALL_PREFIX_PLUS.fatal_error*/
  53. /*No:CALL_PREFIX_PLUS.us_plus*/
  54. void r767short_target(T767* C){
  55. r767bracketed_short(C);
  56. /*[IRF3.6a_dot*/{T580* C1=((T580*)(oBC364short_print));
  57. r580hook_or(C1,((T0*)ms58_580),((T0*)ms67_470));
  58. }/*]*/
  59. }
  60.  
  61.